(make-lucid-menu-keymap): Any row of dashes means blank.

diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el
index 4f79c540ef6fb05f7e0afb6b28005556332bdd37..395d2d36ede5f56ea6dd65365ef363a406e81710 100644 (file)
--- a/lisp/emacs-lisp/lmenu.el
+++ b/lisp/emacs-lisp/lmenu.el
@@ -63,7 +63,7 @@
             command enabler name)
        (cond ((stringp item)
               (setq command nil)
-              (setq name (if (equal item "----") "" item)))
+              (setq name (if (string-match "^-+$" item) "" item)))
              ((consp item)
               (setq command (make-lucid-menu-keymap (car item) (cdr item)))
               (setq name (car item)))